home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Suzy B Software 2
/
Suzy B Software CD-ROM 2 (1994).iso
/
extras
/
programm
/
gemfsc20
/
gemfsc20.lzh
/
GEMFBIND
/
VGETPIX.S
< prev
next >
Wrap
Text File
|
1993-03-26
|
1KB
|
47 lines
;*========================================================================
;* VDIFAST Public Domain VDI bindings.
;*========================================================================
;*------------------------------------------------------------------------
;* Get pixel.
;*------------------------------------------------------------------------
globl _v_get_pixel
_v_get_pixel:
; .cargs #8,handle.w,x.w,y.w,pel.l,index.l
handle = 8
x = 10
y = 12
pel = 14
index = 18
link a6,#-4 ;* Allocate intout[2].
; VContrl #105,,#1
move.w handle(a6),-(sp) ; contrl[6]
clr.l -(sp) ; contrl[5,4]
clr.l -(sp) ; contrl[3,2]
move.w #1,-(sp) ; contrl[1]
move.w #105,-(sp) ; contrl[0]
subq.l #4,sp ;* -> ptsout
pea -4(a6) ;* -> intout
pea x(a6) ;* -> ptsin
subq.l #4,sp ;* -> intin
pea 16(sp) ;* -> contrl
move.l sp,d1
jsr vditrap
move.l pel(a6),a0 ;* Return pixel value
move.w -4(a6),(a0) ;* from intout[0].
move.l index(a6),a0 ;* Return index value
move.w -2(a6),(a0) ;* from intout[1].
unlk a6
rts
end